home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / wincomm5.arc / REPORT1.WMS < prev    next >
Text File  |  1990-10-25  |  5KB  |  144 lines
  1. ;Introduction macro for WinComm service request
  2.  
  3. STOP
  4.  
  5.    DIALOGBOX 50, 50, 229, 88, 21, "WinComm Service Request"
  6.       LTEXT 7, 4, 220, 33, "This macro is named REPORT1.WMC.  REPORT1 is a macro that allows creation of service request files for WinComm users.  It is a part of the 'SOLIS.WMC' macro that is used to connect to "
  7.       LTEXT 6, 29, 220, 33, "SOLIS, Synappsys On-Line Information Service.  SOLIS is a WinComm based host, provided by Synappsys, that users can call to exchange files and submit service requests."
  8.       DEFCANCELBUTTON 87, 64, 50, 15, "&OK"
  9.    DEND
  10. DO i = DIALOG? UNTIL(i != 255)
  11.  
  12. DE$ = "temp.txt"
  13. FCLOSE(FOPEN(4096,DE$))     ;creates a null file called temp.txt
  14. date_time$ = LEFT(STRTIME(TIME?),10)+" "+MID(STRTIME(TIME?),12,5)
  15. name_time$ = RIGHT(date_time$,8)
  16. SUBST(" ",name_time$,"_",1)
  17. SUBST(":",name_time$,"",1)
  18. macdir$=LOWERCASE(GETSESSSTR(28))+"\"
  19. var2=0 var3=0 var4=0 var5=0 var6=0 var7=0 
  20. var1=1
  21. var1$="WinComm - Fill In Above,Dialog Editor,Utility Program,Keyboard Remapper,WinLink,SOLIS Terminal,"
  22. var2$="WinComm - Fill In Above"
  23. var3$="Real Mode,Standard Mode,386 Enhanced Mode,"
  24. var4$="Real Mode"
  25. af$=""
  26. hc = FOPEN(2,"solis.que") 
  27. IF(hc==-1){
  28.     var5$="" var6$=var5$
  29. }
  30. ELSE{
  31.     var5$ = FREAD(hc,255) var6$ = FREAD(hc,255) FCLOSE(hc)
  32. }
  33. inmsg=1
  34.    DIALOGBOX 22, 23, 295, 208, 17
  35.       CTEXT 83, 4, 119, 9, "WinComm Service Request"
  36.       GROUPBOX 15, 26, 58, 43, "Session Type"
  37.       BEGINGROUP_RADIOBUTTON 19, 36, 43, 10, "Terminal", VAR1
  38.       RADIOBUTTON 19, 47, 31, 10, "Phone", VAR2
  39.       ENDGROUP_RADIOBUTTON 19, 58, 32, 10, "PC/PC", VAR3
  40.       CHECKBOX 81, 29, 47, 10, "Connected", VAR4
  41.       CHECKBOX 81, 39, 59, 10, "Macro Loaded", VAR5
  42.       CHECKBOX 81, 49, 63, 10, "Macro Running", VAR6
  43.       CHECKBOX 81, 59, 76, 10, "Compiler Problem", VAR7
  44.       RTEXT 159, 29, 49, 9, "Date/Time:"
  45.       RTEXT 159, 44, 49, 9, "Version No:"
  46.       RTEXT 167, 58, 41, 9, "Operator:"
  47.       EDIT 209, 27, 70, 12, DATE_TIME$
  48.       EDIT 209, 42, 32, 12, VER$
  49.       EDIT 209, 57, 70, 12, OP$
  50.       SEDIT 13, 109, 269, 65, DE$
  51.       CTEXT 13, 99, 260, 9, "Type in a description of the problem, how and if it was resolved."
  52.       CTEXT 111, 74, 70, 8, "Windows Mode:"
  53.       UPDATEPB 13, 183, 50, 14, "Save &As"
  54.       DEFCANCELBUTTON 230, 183, 50, 14, "E&xit"
  55.       UPDATEPB 67, 183, 50, 14, "Set for &Send"
  56.       UPDATEPB 121, 183, 50, 14, "&Edit Report"
  57.       UPDATEPB 175, 183, 50, 14, "Delete &Que"
  58.       LTEXT 32, 74, 50, 8, "Product Type:"
  59.       COMBOBOX 12, 83, 92, 42, , VAR1$, VAR2$
  60.       COMBOBOX 108, 83, 76, 42, , VAR3$, VAR4$
  61.       LTEXT 196, 74, 80, 8, "Message Files to Send:"
  62.       COMBOBOX 188, 83, 91, 42, , VAR5$, VAR6$
  63.       GROUPBOX 120, 9, 102, 16, ""
  64.       VTEXT 122, 14, 97, 8, af$
  65.       RTEXT 81, 15, 36, 8, "File Name:"
  66.    DEND
  67. mmsg_loop:
  68. DO dg = DIALOG? UNTIL(dg!=255)
  69. if(dg==100){                    ; save as
  70.     if(NULL(af$)) a$ = name_time$+".RPT"
  71.     IF(SAVEASDLG("Save Report as what File Name",a$) == 1){
  72.         a$=LOWERCASE(a$) SUBST(macdir$,a$,"",1) af$=a$
  73.         GOSUB save_file  
  74.     }
  75.     UPDATEDLG(0) GOTO mmsg_loop
  76. }
  77. if(dg==101){                    ; file to send
  78.     if(NULL(af$)){
  79.         a$ = name_time$+".RPT"
  80.         IF(SAVEASDLG("Save Report as what File Name",a$) == 1){
  81.         a$=LOWERCASE(a$) SUBST(macdir$,a$,"",1) af$=a$
  82.         GOSUB save_file
  83.         SUBST(af$+",",var5$,"",1)
  84.             var5$=var5$+af$+"," var6$=af$
  85.         UPDATEDLG(32)
  86.         }
  87.         else UPDATEDLG(0)
  88.         GOTO mmsg_loop
  89.     }
  90.     a$=af$
  91.     GOSUB save_file
  92.     SUBST(af$+",",var5$,"",1)
  93.     var5$=var5$+af$+"," var6$=af$
  94.     UPDATEDLG(32)
  95.     GOTO mmsg_loop
  96. }
  97. if(dg==102){            ; edit file
  98.     IF(FILEOPENDLG("Select a report for editing","*.rpt",a$) == 1){
  99.     GOSUB read_file
  100.     a$=LOWERCASE(a$) SUBST(macdir$,a$,"",1) af$=a$
  101.     UPDATEDLG(255)
  102.     }
  103.     else UPDATEDLG(0)
  104.     GOTO mmsg_loop
  105. }
  106. if(dg==103){            ;remove que
  107.     IF(NULL(var5$)) UPDATEDLG(0)
  108.     ELSE{
  109.     a$ = var6$+","
  110.     SUBST(a$,var5$,"",1) var6$=EXTRACT(",",var5$,1)
  111.     UPDATEDLG(32)
  112.     }
  113.     GOTO mmsg_loop
  114. }
  115. hc = FOPEN(4096,"WCTERM.QUE") FWRITE(hc,255,var5$) FWRITE(hc,255,var6$) FCLOSE(hc)
  116. GOTO exit
  117.  
  118. save_file:
  119.     hd=FOPEN(4096,a$) hs=FOPEN(2,"TEMP.TXT")
  120.     FWRITELN(hd,STRINT(var1)) FWRITELN(hd,STRINT(var2)) FWRITELN(hd,STRINT(var3))
  121.     FWRITELN(hd,STRINT(var4)) FWRITELN(hd,STRINT(var5)) FWRITELN(hd,STRINT(var6))
  122.     FWRITELN(hd,STRINT(var7)) FWRITELN(hd,date_time$) FWRITELN(hd,ver$) FWRITELN(hd,op$)
  123.     FWRITELN(hd,var2$) FWRITELN(hd,var4$)
  124.     DO
  125.           str$ = FREAD(hs,255) FWRITE(hd,255,str$)                  
  126.     UNTIL(NULL(str$))
  127.     FCLOSE(hd) FCLOSE(hs) RETURN
  128.  
  129. read_file:
  130.     hd=FOPEN(4096,"TEMP.TXT") hs=FOPEN(2,a$)
  131.     var1 = VALINT(FREADLN(hs)) var2 = VALINT(FREADLN(hs)) var3 = VALINT(FREADLN(hs))    
  132.     var4 = VALINT(FREADLN(hs)) var5 = VALINT(FREADLN(hs)) var6 = VALINT(FREADLN(hs))    
  133.     var7 = VALINT(FREADLN(hs)) date_time$=FREADLN(hs) ver$=FREADLN(hs) op$=FREADLN(hs)
  134.     var2$ = FREADLN(hs) var4$ = FREADLN(hs)  
  135.     date_time$ = LEFT(date_time$,(LEN(date_time$)-2)) 
  136.     ver$ = LEFT(ver$,(LEN(ver$)-2)) op$ = LEFT(op$,(LEN(op$)-2))  
  137.     var2$ = LEFT(var2$,(LEN(var2$)-2)) var4$ = LEFT(var4$,(LEN(var4$)-2))  
  138.     DO
  139.         str$ = FREAD(hs,255) FWRITE(hd,255,str$)
  140.     UNTIL(NULL(str$))
  141.     FCLOSE(hd) FCLOSE(hs) RETURN
  142. exit:
  143. end
  144.